home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 01 (1989-01)(MicroSPARC)(Side A)[a].zip / Nibble Volume 10, No. 01 (1989-01)(MicroSPARC)(Side A)[a].po / INST.CDA.ASM.txt < prev    next >
Text File  |  1996-12-24  |  3KB  |  65 lines
  1. ***********************************
  2. *                                 *
  3. *      INST.CDA Source Code       *
  4. *       by  Sandy Mossberg        *
  5. *                                 *
  6. *       Copyright (C) 1989        *
  7. *       by MicroSPARC, Inc.       *
  8. *       Concord, MA  01742        *
  9. *                                 *
  10. ***********************************
  11. ;
  12. ;
  13. ; If you are using APW, issue the following:
  14. ; 1. ASML INST.CDA.ASM
  15. ; 2. COPY  INST.CDA  */SYSTEM/SYSTEM.SETUP
  16. ; 3. FILETYPE  */SYSTEM/SYSTEM.SETUP/INST.CDA  $B7
  17.  
  18.            KEEP     INST.CDA
  19.  
  20. INST_CDA   START
  21.  
  22. ; Check for ROM version 01:
  23.  
  24.            LDA      #0               ;zero result regs
  25.            PHA                       ;space for result (P-reg)
  26.            PHA                       ;                 (A-reg)
  27.            PHA                       ;                 (X-reg
  28.            PHA                       ;                 (Y-reg)
  29.            PHA                       ;entry A-reg (lo byte used)
  30.            PHA                       ;entry X-reg (lo byte used)
  31.            PHA                       ;entry Y-reg (lo byte used)
  32.            PEA      $FE1F            ;IDROUTINE entry
  33.            LDX      #$2403           ;FWEntry tool call
  34.            JSL      $E10000
  35.            PLY                       ;Y-reg (lo byte returned)
  36.            PLX                       ;X-reg (lo byte returned)
  37.            PLA                       ;A-reg (lo byte returned)
  38.            PLA                       ;P-reg (lo byte returned)
  39.            CPY      #1
  40.            BNE      Done             ;ROM 01 not found
  41.  
  42. ; ROM version 01 found so install CDAs:
  43.  
  44.            LDA      #0               ;zero result regs
  45.            PHA                       ;space for result (P-reg)
  46.            PHA                       ;                 (A-reg)
  47.            PHA                       ;                 (X-reg
  48.            PHA                       ;                 (Y-reg)
  49.            PHA                       ;entry A-reg (lo byte used)
  50.            PHA                       ;entry X-reg (lo byte used)
  51.            PHA                       ;entry Y-reg (lo byte used)
  52.            PEA      $FEB4            ;# command entry (ROM 01)
  53.            LDX      #$2403           ;FWEntry tool call
  54.            JSL      $E10000
  55.            PLY                       ;Y-reg (lo byte returned)
  56.            PLX                       ;X-reg (lo byte returned)
  57.            PLA                       ;A-reg (lo byte returned)
  58.            PLA                       ;P-reg (lo byte returned)
  59.  
  60. ; Exit program:
  61.  
  62. Done       RTL
  63.  
  64.            END
  65.